home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
LIBRARY
/
CMPLTPAS
/
MVPARMIN.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1988-02-13
|
361b
|
25 lines
PROGRAM VARParmINLINE;
USES Crt;
VAR
Flarf : Integer;
PROCEDURE Foo(VAR Fum : Integer);
BEGIN
INLINE($C4/$BE/Fum); {LES DI,[BP+<offset>]}
INLINE($BA/$71/$00); {MOV DX,$71}
INLINE($26/$89/$15); {MOV ES:[DI],DX}
END;
BEGIN
ClrScr;
Flarf := 0;
Foo(Flarf);
Writeln('Flarf=',Flarf);
Readln
END.